<script>on mouseUpAnswer "Is your printer ready?" with "No" or "Yes"if it is "no" then exit mouseupset visible of me to falseset visible of cd button "new button" to falsedomenu "Print card"set visible of me to trueset visible of cd button "new button" to trueend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>9</id>
<text>Fever Graph</text>
</content>
<content>
<layer>background</layer>
<id>52</id>
<text>0,62,509,339495,324,509,339</text>
</content>
<content>
<layer>background</layer>
<id>59</id>
<text>Create Fever Graph</text>
</content>
<content>
<layer>background</layer>
<id>63</id>
<text><span class="style1">se a fever graph to reveal trends in data, especially data that fluctuates a lot. Average daily temperature or interest rates are often presented this way. Fever graphs usually plot time along the horizontal axis.To plot values for categories (such as companies) rather than time intervals,use a bar graph or pie chart.</span><span class="style5"> (Click this field to hide it.)</span></text>
<script>on opencardhide menubarpass opencardend opencardon closecardshow menubarclearscreenend closecardon drawChartshowInfo falsecheckUserCancelput stripReturns(bg fld "Labels") into labelsput stripReturns(bg fld "Data") into dataput stripReturns(bg fld "Units") into unitsput stripReturns(bg fld "Labels Title") & return & ¬stripReturns(bg fld "Graph Title") into titleput rect of bg btn "Frame" into chartRectput rect of bg btn "Legend" into legendRectgraph chartRect,data,labels,units,titleput true into bg fld "Drew Data"reset paintend drawCharton graph chartRect,data,labels,units,titlereset paintcheckUserCancelclearScreenput "Stand by...preparing graph now."set lockscreen to trueput validatedData(data,labels) into dataput getMaxValue(data) into maxValueput roundUp(maxValue) into maxValueput rectWidth(chartRect) into frameWidthif frameWidth > 185 then setFont geneva,10,center,boldelse setFont geneva,9,center,boldchoose text toolclick at (item 1 of chartRect + frameWidth div 2),(item 2 of chartRect + the textHeight + 3)type line 1 of title -- draw the title in card paintchoose line toolchoose text toolclick at (item 1 of chartRect + frameWidth div 2),(item 2 of chartRect + (the textHeight * 2) + 3)setFont geneva,9,center,plaintype line 2 of title -- draw the title in card paintchoose line toolsetFont geneva,10,center,plainput maxChars(maxValue) into maxLabeladd max(20,(maxLabel * 8)) to item 1 of chartRectadd 40 to item 2 of chartRectsubtract 16 from item 3 of chartRectsubtract 30 from item 4 of chartRectaddIncrements chartRect,maxValue,unitsdoColumns chartRect,data,maxValue,labelshide msg boxset lockscreen to falsechoose browse toolend graphon doColumns chartRect,chartData,maxValue,labelscheckUserCancelput item 1 of chartRect into chartLeftput item 4 of chartRect into chartBottomput rectHeight(chartRect) into frameHeightput rectWidth(chartRect) into frameWidthput number of lines in chartData into maxLinesput frameWidth div maxLines into realWidthput round((3/4) * realWidth) into colWidth -- actual width of columnif maxValue div 10 = 0 then put 1 into divisorelse put 10^(length(maxValue div 10)) into divisorif maxValue div divisor = 1 then put divisor div 10 into divisorif divisor = 0 then put 1 into divisorput maxValue div divisor into numIncrementsif numIncrements = 0 then put max(maxValue,1) into numIncrementsput frameHeight div numIncrements into stepSizeput stepSize * numIncrements into frameHeight -- adjusted heightput length(labels) * 6 into labelWidthput (labelWidth > frameWidth) into staggerLabelssetFont geneva,9,center -- for the bottom labelsadd 3 to chartLeftput 0 into newHorzput 0 into newVertset brush to 32set lineSize to 1set pattern to 12repeat with lineIndex = 1 to maxLinescheckUserCancelput newHorz into oldHorzput newVert into oldVertput line lineIndex of chartData into dataValueif (lineIndex mod 2 = 0) and staggerLabels then put 13 into vertAdjelse put 3 into vertAdjaddALabel (line lineIndex of labels),chartLeft + (colWidth div 2),chartBottom,vertAdjput round(frameHeight * dataValue / maxValue) into columnHeightput chartLeft + (colWidth div 2) into newHorzput chartBottom - columnHeight into newVertif lineIndex = 1 thenput newHorz into oldHorzput newVert into oldVertend ifchoose brush toolclick at newHorz,newVertchoose line tooldrag from oldHorz,oldVert to newHorz,newVertadd realWidth to chartLeft -- add space between Columnsend repeatend doColumnson addALabel theLabel,horz,vert,vertAdjif theLabel is empty then exit addALabelchoose line tooldrag from horz,vert to horz,(vert + vertAdj + 3)choose text toolclick at horz,(vert + the textHeight + vertAdj + 3)type theLabelend addALabelon addIncrements chartRect,maxValue,unitscheckUserCancelput item 1 of chartRect into chartLeftput item 2 of chartRect into chartTopput item 3 of chartRect into chartRightput item 4 of chartRect into chartbottomif maxValue div 10 = 0 then put 1 into divisorelse put 10^(length(maxValue div 10)) into divisorif maxValue div divisor = 1 then put divisor div 10 into divisorif divisor = 0 then put 1 into divisorput maxValue div divisor into numIncrementsif numIncrements = 0 then put max(maxValue,1) into numIncrementsput rectHeight(chartRect) div numIncrements into stepSizesetFont geneva,9,rightset lineSize to 1set pattern to 22 -- grayput (chartBottom + (the textHeight div 2)) into chartTextBotput chartBottom into chartLineBotrepeat with lineInc = 1 to (numIncrements + 1)checkUserCancelchoose line tooldrag from chartLeft,chartLineBot to chartRight,chartLineBot ¬with optionkey -- tall grey incrementschoose text toolclick at chartLeft - 3,chartTextBottype (divisor * lineInc) - divisorsubtract stepSize from chartTextBotsubtract stepSize from chartLineBotend repeatclick at chartLeft + 5,(chartTop - the textHeight + 2)set textAlign to centertype unitschoose line Tooldrag from chartLeft,chartBottom to chartRight,chartBottomdrag from chartLeft,chartBottom to chartleft,chartTopend addIncrements</script>
</card>
card_4233.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpvisual effect dissolve fastgo to card id 2996end mouseUp</script>
</part>
<part>
<id>65</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>3</left>
<top>79</top>
<right>105</right>
<bottom>104</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Graph it!</name>
<script>on mouseUpGlobal GraphName,DoGraphput field "FName" into xput x into LabTitput x into GraphNameput the number of lines in cd field x into STPrepeat with p = 1 to the number of lines in cd field xput line p of cd field x into PPput PP into TLINEDelete the last word of TLINErepeat 3 timesdelete the last char of TLIneend repeatconvert Tline to short daterepeat 3 timesdelete the last char of TLIneend repeatput " " after TLINEput the last word of PP after TLineif x Γëá 1 then put return after TLINEput TLINE before TheFundsend repeatdomenu "next"put empty into field "labels"put empty into field "data"repeat with x = 1 to the number of lines in TheFundsput word 1 of line x of thefunds into line x of field "labels"put word 2 of line x of theFunds into line x of field "DATA"end repeatput 0 into DoGraphput LabTit into field "Labels Title"set lockscreen to falseclick at loc of bg button "drawGraph"end mouseUp</script>
</part>
<name>Records</name>
<script>On Idleif field "Fname" is empty thenset visible of cd button "Graph it!" to falseelseset visible of cd button "Graph it!" to trueend ifpass idleend Idleon opencardset lockscreen to truechoose browse toolset cursor to busyrepeat with x = 1 to the number of cd fieldsset cursor to busyset visible of cd field x to falseput the short name of cd field x into xxput xx&return before field "flist"end repeatset lockscreen to falseend opencardon closecardset lockscreen to trueset visible of cd button "graph it!" to falseput empty into field "HIgh"put empty into field "low"put empty into field "flist"put empty into field "fname"repeat with x = 1 to the number of cd fieldsset visible of cd field x to falseend repeatset lockscreen to falseend closecard</script>
</card>
card_2996.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpvisual effect dissolve fastgo to next cardend mouseUp</script>
</part>
<part>
<id>1</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>8</left>
<top>46</top>
<right>276</right>
<bottom>171</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Courier</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<textHeight>13</textHeight>
<name>Funds</name>
<script></script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>303</left>
<top>73</top>
<right>508</right>
<bottom>128</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Import fund info & compute</name>
<script>on mouseUpglobal II,FFif script of bg "uno" is empty thenput "You must first 'Set Up'. Click on the Set Up button."beep 3wait 3 secondshide msg boxexit mouseupend ifFileGetset cursor to busyput "1 2 3 4 5 6 7 8 9 0" into NNNput empty into cd field "funds"put the number of lines in cd field "daily" into dailyTimesput 4 into xrepeat DailyTimes timesset cursor to busyput char 1 of word 2 of line x of cd field "daily" into WWput word 1 of line x of cd field "daily" into Firstcheckput one into yif NNN contains WW thenput word 2 of line x of cd field "daily" into item two of firstcheckrepeat foreverset cursor to busyif word 1 of line (x+y) of cd field "daily" ≠ item 1 of Firstcheck thenexit repeatelseadd word 2 of line (x+y) of cd field "daily" to item two of FirstCheckadd one to yend ifend repeatelseput 0 into item 2 of firstcheckend ifset cursor to busyput item one of firstcheck into FFput " " after FFput item 2 of firstcheck into IIif x ≥ (DailyTimes-1) thenput 0 into KKset cursor to busyrepeat with p = 1 to the number of lines in cd field "Funds"put the last word of line p of cd field "funds" into Kadd k to KKend repeatset cursor to busyput "_________________"&return after cd field "Funds"put "Total....."&KK after cd field "Funds"put the short date&"...."&"$"&KK&return before cd field "tot"dorecordsset lockscreen to falsehide msg boxchoose browse toolexit mouseupend ifput II*(word 3 of line x of cd field "daily") into IINumFormatput II after FFLnFormatput FF&return after cd field "funds"set cursor to busyput x+y into xend repeatend mouseUp</script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>301</left>
<top>30</top>
<right>403</right>
<bottom>53</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Set up</name>
<script>on mouseUpset visible of cd field "help" to trueend mouseUp</script>
</part>
<part>
<id>22</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>6</left>
<top>22</top>
<right>38</right>
<bottom>42</bottom>
</rect>
<style>shadow</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>25239</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>on mouseUpset visible of cd field "JD" to trueend mouseUp</script>
</part>
<part>
<id>21</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>2</left>
<top>18</top>
<right>509</right>
<bottom>338</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Help</name>
<script>on mouseupif word 2 of the clickline is 11 thenPathsetset visible of me to falseexit mouseupend ifif word 2 of the clickline is 13 thenset visible of me to falseexit mouseupend ifanswer "You missed both lines... Re-aim and click again" with "OK"end mouseup</script>
</part>
<part>
<id>23</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>2</left>
<top>22</top>
<right>507</right>
<bottom>338</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>JD</name>
<script>ON MouseUpset visible of me to falseend mouseup</script>
</part>
<content>
<layer>card</layer>
<id>21</id>
<text><span class="style1"></span><span class="style6"> You must first tell this stack where to find the Stock Fund file that you save from AOL. To do that use the format below:</span><span class="style7"> Quantom 80:Communication:Investments:Stock Portfolio Display </span><span class="style2">(drive) (folder) (folder) (file name)</span><span class="style7"></span><span class="style1"> </span><span class="style6"> When you save your Stock Portfolio Display while logged on to AOL, always save it using the same name even though it will replace the last display. You may want to exit this stack and go to the finder and jot down the path to your Stock Portfolio Display. Remember to spell correctly. A short cut, if it is available to you, is to use a program like "On Location" or the "Find File" DA to show the path to a file. When you are ready, click on "...ready to enter it" and a dialog box will apear for you to enter the path.</span><span class="style1"></span><span class="style8"> </span><span class="style7">Click on choice below:</span><span class="style8"></span><span class="style3"> </span><span class="style4"><a href="#" class="group">"I have the path and am ready to enter it."</a></span><span class="style3"> "</span><span class="style4"><a href="#" class="group">I need to get the path and will come back."</a></span></text>
</content>
<content>
<layer>card</layer>
<id>23</id>
<text>If this stack helps you in some way to reach your goals...How 'bout helping me reach mine...two kids through college.$6.25 is half of a $25.00 bond.Jim DeBow6333 Pacific Ave. #226Stockton CA 95209Thanks<Click to close field></text>
</content>
<name>Fund 1</name>
<script>on opencardglobal TD,TLDput the long date into TLDput the short date into tdend opencardOn PathSEtglobal PPAsk "Enter the path. DO NOT use quotation marks. Use a colon (:) between the drive, folders, and file. Do not put a colon at the end"put it into PPif the first char of PP = quote then delete char 1 of Pif the first char of PP = ":" then delete char 1 of Pif the last char of PP = quote then delete char 1 of Pif the last char of PP = ":" then delete char 1 of Pput quote before PPput quote after PPput "On FileGet"&return&"open file"&&PP&return&"read from file"&&PP&" until empty"&return&"put it into cd field 2"&return&"close file"&&PP&return&"end FileGet" into LKset the script of background "uno" to lkend PathSet</script>
